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ABSTRACT 


A  library  subroutine  named  PREFORM  has  been  developed  for  use  on 
the  PDP-11/10  computer.  This  subroutine  can  be  accessed  by  user  programs 
to  process  data  stored  on  disk  or  data  entered  at  the  computer  terminal. 
The  use  of  PREFORM  eliminates  the  need  for  format  statements  in  programs 
which  process  or  use  such  data.  More  importantly,  restrictions  on  the 
data  format  and  syntax  are  greatly  reduced. 
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SECTION  1 
INTRODUCTION 


Subroutine  PREFORM  can  process  data  which  are  relatively 
unrestricted  in  format  and  syntax.  Thus,  it  can  be  used  in  place  of  the 
usual  formatted  I/O  statements.  The  objective  is  to  simplify  user 
programs  while  at  the  same  time  enhancing  the  efficiency  of  terminal 
use.  PREFORM  differs  from  conventional  processing  algorithms  in  that  it 
is  highly  flexible.  (NAMELIST,  for  example,  is  intended  primarily  for 
batch  mode,  and  requires  user  knowledge  of  variable  names.)  PREFORM  is 
designed  specifically  for  users  of  NRL's  Data  Acquisition  System. 

The  usefulness  of  PREFORM  can  be  illustrated  with  a  simple 
example.  Consider  the  input  data  sequence, 

_^SHOT^4395^SI02^^1.000E+03_4.000E-02^  J.142E+00_235, 

entered  by  a  user  at  a  terminal  console.  (The  *  symbol  will  be  used  to 
explicitly  represent  a  blank,  or  space.)  The  conventional  program  will 
contain  format  statements  contructed  specifically  to  read  such  data 
strings.  To  read  the  data  sequence  above,  the  user's  program  might 
contain  the  following  statements: 

READ(5,IOO)ALFA,NSHOT,HETA,(COEF(1),I=1 ,3), 151 9 
100  F0RMAT(1X,A4,1X,I4,IX,A4,3(2X,E10.3),15) 

Execution  of  this  read  statement  will  cause  an  ASCII  representation  of  the 
word  "SHOT”  to  bo  stored  in  the  central  memory  location  referenced  by  the 
word,  ALFA.  Similarly  the  Integer  value,  4393,  will  be  stored  in  the  word 
referenced  by  NSHOT,  et  cetera.  Of  course,  if  the  data  entry  is  made 
Incorrectly  (e.g.,  the  wrong  spacing,  use  of  F-  rather  than  E-format,  et 
cetera)  the  result  can  he  catastrophic  if  not  recognized  and  corrected. 


As  an  alternative,  this  same  user  program  might  contain  the 


statement: 


CALL  FREFORM(VALU,NVAL). 

In  this  case,  execution  will  result  in  the  representation  of  "SHOT”  stored 
in  VALUd),  the  integer,  4395,  stored  in  VAHJ(2),  et  cetera.  This  alter¬ 
native  is  clearly  simpler  for  the  programmer.  However,  the  real  virtue  of 
this  approach  is  that  the  user  at  the  terminal  console  is  no  longer 
restricted  to  any  exact  format.  Thus,  equivalent  results  will  be  obtained 
from  the  data  sequence, 

SHOT  4395,8102, 1E3  .04,  3.142  235. 

AAA  A  A  A  A 

Note  the  (arbitrary)  insertion  of  commas  and/or  blanks  as  well  as  the 
varied  syntactical  forms  in  this  second  data  sequence.  Acceptable  varia¬ 
tions  are  limitless  in  number.  Thus,  FREFORM  frees  the  user  from  the 
necessity  of  remembering  and  exactly  reproducing  program  formats. 

The  remainder  of  this  report  is  organized  as  follows.  Section  2 
explains  how  FREFORM  functions  in  normal  and  test  modes,  the  method  in 
which  data  is  processed,  and  the  simple  rules  for  data  syntax.  Section  3 
discusses  implementation  on  the  DEC-IO  and  the  PDP-11/10  computers  and 
presents  results  obtained  from  an  actual  run  using  the  test  and  diagnostic 
algorithms.  Flow  diagrams  for  the  test  algorithm  (TESTFF)  and  the 
processing  algorithm  (FREFORM)  are  presented  and  explained  in  Section  4. 
The  complete  FORTRAN  listing  of  both  algorithms  as  implemented  on  the 
DEC-IO  is  reproduced  in  Section  5. 


SECTION  2 

HOW  PREFORM  FUNCTIONS 


2.1  THE  NORMAL,  TEST,  AND  DIAGNOSTIC  MODES 

2.1.1  Normal  Mode 

The  subroutine,  PREFORM,  exists  as  a  library  subroutine  on  the 
PDP-11/10.  As  such,  it  can  be  accessed  by  any  user  program  which  requires 
data.  Such  data  might  reside  on  disk,  but  more  commonly  would  be  entered 
by  a  user  from  the  terminal  console  (VT55).  Thus,  PREFORM  provides  a 
means  of  entering  input  data  to  the  computer. 

A  typical  application  is  Illustrated  schematically  in  Figure 
1(a).  This  example  consists  of  a  main  program  and  four  subroutines,  three 
cf  which  require  input  data  to  be  entered  from  the  terminal.  The  command 
sequence  subroutine  would  be  used  to  enter  key  words  specifying  operations 
to  be  performed  by  the  program.  Additional  data  (either  "A”  parameters  or 
"B"  parameters)  might  be  required  depending  upon  the  specified 
operations.  In  all  cases,  the  commands  (alphanumeric  words),  parameters 
(integer,  fixed  point,  and  floating  point  numbers)  and  comments 
(alphanumeric  text)  can  be  entered  simply  from  the  terminal  in  response  to 
queries  from  the  input  subroutines.  Data  so  entered  will  automatically  be 
processed  by  KREKORM. 

2.1.2  Test  Mode 

A  main  program  named  TESTER  Is  also  available  on  the  PDP-11/10. 
This  program  is  designed  to  validate  and  demonstrate  the  performance  of 
EKKRORM.  This  mode  of  application  is  illustrated  scliematically  in  Figure 
Kb). 
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(a)  A  Typical  Program  Application  in  the  Normal  Mode. 


(b)  Application  in  the  Test  Mode 


Figure  1.  Application  Modes  for  PREFORM, 


TESTFF  allows  a  user  to  enter  a  string  of  data  at  the  terminal 
in  an  arbitrary  format.  This  data  will  be  processed  by  FREFORM,  and  the 
interpreted  values  will  be  returned  to  the  user  (printed)  at  the 
terminal.  One  of  the  restrictions  on  use  of  TESTFF  is  that  all  of  the 
values  returned  from  each  sequence  string  will  be  printed  according  to  the 
same  format  specification.  Thus,  all  of  the  values  submitted  in  each 
sequence  string  must  be  of  the  same  data  type.  Of  course,  this 
restriction  does  not  apply  to  the  normal  use  of  FREFORM. 

2.1.3  Diagnostic  Mode 


Subroutine  FREFORM  contains  a  system  diagnostic  mode.  It  is 
activated  by  altering  a  data  statement  in  PREFORM  so  that  the  variable, 
ITST,  is  set  to  unity  rather  than  zero.  The  diagnostic  mode  causes  a 
listing  of  all  system-dependent  parameters  and  ASCII  character  variables 
to  be  printed  on  the  first  call.  Subsequently,  all  record  Images  and 
process  strings  will  be  printed  prior  to  translation.  This  mode  is 
extremely  useful  for  implementing  the  algorithm  on  a  new  system,  or  for 
analyzing  anomalous  results. 

Results  from  an  actual  run  using  the  test  and  diagnostic  modes 
are  presented  in  Section  3. 

2.2  DATA  PROCESSING 

In  the  normal  mode,  a  sequence  string  of  data  will  be  supplied 
by  the  user  in  response  to  a  query  from  the  user  program.  Following  a 
call  to  subroutine  FREFORM,  the  processing  of  this  data  occurs  in  four 
major  steps: 

(1)  A  record  image  (usualiy  80  characters)  is  read  into  an  integer 
array,  ,IC1M.  One  character  is  placed  In  each  array  element.  A 
new  record  Imav^e  Is  obtained  wlien  all  of  tlie  characters  on  the 
previous  image  have  been  processed. 


(2)  Each  character  in  JCIM  is  tested  against  each  of  the  four  string 
delimiters  (see  below)  and  possibly  stored  in  an  Integer  array, 
JCST,  which  contains  the  process  string.  One  character  is 
stored  in  each  array  element.  When  a  delimiter  is  detected, 
testing  stops  and  processing  is  initiated. 


(3)  A  test  is  made  to  determine  whether  the  process  string  contained 
in  JCST  is  a  numerical  value  or  an  alphanumeric  character 
string. 

(4)  The  contents  of  JCST  are  Interpreted  and  then  stored  in  the 
array,  VALU,  by  either  a  number  decoding  algorithm  or  a 
character  string  packing  algorithm,  according  to  the  result  of 
the  test.  The  array,  VALU,  is  returned  to  the  calling  program 
unit  (user  program)  when  the  entire  sequence  string  has  been 
read,  translated,  and  stored. 


DATA  SYNTAX 


2.3.1 


The  Record  String  and  Other  Definitions 


The  total  set  of  data  to  be  processed  by  PREFORM  may  be  regarded 
as  one  contiguous  string  of  characters,  referred  to  as  the  record  string. 
Four  special  characters  embedded  in  the  record  string  -  the  slash,  the 
comma,  the  asterisk  and  the  blank  -  serve  as  delimiters.  Except  for  the 
special  case  discussed  in  the  next  paragraph,  all  image  boundaries  in  the 
data  are  ignored. 


Each  call  to  FREFOFLM  will  process  a  certain  amount  of  data 
referred  to  as  a  sequence  string.  The  length  of  a  sequence  string  can  be 
varied  by  two  different  methods.  With  the  first  method,  the  sequence 
string  terminates  whenever  a  slash  delimiter  is  encountered  in  the  data. 


» 


This  method  is  useful  when  processing  large,  structured  strings  in  the 
batch  mode.  The  second  method,  which  Is  more  useful  in  the  iteractive 
mode,  terminates  the  sequence  string  when  it  contains  a  preset  number  of 
record  images.  (This  preset  number  is  contained  in  a  data  statement  which 
initializes  the  variable,  NIPS.  For  terminal  applications,  a  value  of 
unity  will  cause  the  scope  line  (one  record  image)  and  the  sequence  string 
to  be  equal.  Then  each  line  on  the  scope  will  be  processed  separately, 
without  the  need  to  type  slash  delimiters  to  terminate  the  sequence 
strings . ) 


Within  the  sequence  string,  individual  data  are  delimited  by 
blanks,  commas,  or  asterisks,  as  indicated  in  the  discussion  of  data 
types,  which  follows. 

2.3.2  Allowable  Data  Types 


PREFORM  allows  four  types  of  data: 

(1)  Numerical  Constants  -  Rational  number  constants  are 
recognized  in  fixed,  integer,  and  exponential  formats 
(examples  -  1A3,  3.14159,  l.E-07),  Data  must  be 

separated  by  space  or  comma  delimiters.  Nonessential 
characters  will  be  automatically  supplied  during  inter¬ 
pretation  (thus,  for  example,  lE-7  and  l.OE-07  will  be 
*  Interpreted  identically). 

(2)  Alphanumeric  constants  -  Alphanumeric  constants  are 

recognized  by  the  first  character,  which  must  be  alpha- 
^  betical.  Succeeding  characters  may  be  alphabetical, 

numerical,  or  may  be  any  ASCII  special  character  other 
than  the  slash  or  asterisk,  or  the  system-dependent 
control  characters  (examples  -  A123,  Z$45,  START).  Data 
^  must  be  separated  by  space  or  comma  delimiters. 
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(3) 


Null  Values  -  A  null  value  is  created  by  recognition  of 
successive  commas,  with  no  intervening  characters. 

(Blanks,  or  spaces,  between  adjacent  commas  will  be 
Ignored.  For  example,  the  character  string  (,  ,,)  will 
produce  two  null  values.) 

(4)  Text  -  Any  character  string  delimited  by  two  asterisks 
(at  beginning  and  end)  will  be  recognized  as  text,  and 
will  be  retained  Intact  with  embedded  spaces,  commas, 
and  all  ASCII  characters  (except  the  slash  and 
asterisk  which  would  terminate  the  string,  and  the 
system-dependent  control  characters).  The  text  will  be 
coded  in  as  many  words  as  are  required  to  process  the 
string. 

The  number  of  characters  devoted  to  a  single  numerical  or 
alphanumeric  constant  may  not  exceed  the  value  of  the  variable,  NCPS.  If 
the  number  of  characters  in  any  delimited  data  value  exceeds  NCPS,  a 
delimiter  is  assumed  after  every  NCPS  characters  in  the  data,  beginning 
with  the  leftmost  character.  (For  example,  with  NCPS  =  4,  the  string 
'*  2345. 67891 E-23  "  would  be  divided  into  four  values:  "2345",  ".678", 
"91E-",  and  "23".)  Thus,  if  one  of  the  values  represent  an  incorrectly 
formatted  numerical  constant,  an  error  will  occur,  as  described  below. 

2.3.3  Error  Analysis 

PREFORM  is  intentionally  tolerant  of  varied  syntactical  forms. 
However,  two  types  of  errors  which  can  occur  in  the  formation  of  a 
numerical  constant  are  recognized. 


,s 


(1)  Syntax  error  In  the  mantissa  -  Any  data  entry  (excluding  text 
delimited  by  asterisks)  beginning  with  a  nonalphabetical 
character  is  assumed  to  be  a  numerical  constant.  If  this 
constant  cannot  be  interpreted,  a  syntax  error  results. 
(Examples:  25.00F+02,  ++15,  &STRI.\'G) 

(2)  Syntax  error  in  the  exponent  -  The  exponent  of  a  floating  point 
numerical  constant  must  be  an  integer  value.  (It  may  include  an 
algebraic  sign).  If  an  exponent  cannot  be  interpreted,  a  syntax 
error  results.  (Examples:  2E2.,  2EE3,  2E-I) 

For  these  two  cases,  a  blank  value  will  be  substituted  for  the 
data  entry,  and  an  error  message  will  be  printed.  A  typical  error  message 
is  shown  below; 


********  error  DETECTED  BY  SUBROUTINE  FREFORM  IN  RECORD  IMAGE  5  ********** 
TEXT  HERE  IS  AN  ERROR  DIAGNOSTIC  25F/ 

COLUMN:  36  PROCESS  STRING:  25F 

*  ilr  *  A  *  ******  ****  **********  A  ***  ik  ****  A  ^  A  *  *******  A  *  A  *****************  * 

The  message  contains  Information  helpful  in  locating  and 
analyzing  the  error.  The  first  line  gives  the  number  of  the  record  image 
on  which  the  error  was  encountered.  Images  are  numbered  sequentially 
beginning  from  the  first  call  to  FREFORM.  The  second  line  reproduced  the 
first  eighty  (80)  characters  of  the  image.  The  third  line  identifies  the 
column  number  of  the  entry  and  reproduces  the  numerical  value  of  the 
process  string. 
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SECTION  3 


IMPLEMENTATION  AND  TESTING 

3.1  SYSTEM-DEPENDENT  PARAMETERS 

Data  is  read  from  a  file  with  logical  unit  number  5.  Thus, 
input  data  from  an  I/O  device  (such  as  a  card  reader  or  console)  will  be 
processed  if  the  logical  unit  number  5  is  assigned  to  the  input  file  by 
the  calling  program,  or  if  the  logical  unit  number  5  is  associated  with 
the  I/O  device  by  the  system.  Output  is  written  to  a  file  with  logical 
unit  number  6.  Thus,  messages  will  be  sent  to  a  printer  if  the  logical 
unit  number  6  is  assigned  to  the  output  file  by  the  calling  program,  or  if 
this  association  Is  made  by  the  system. 

In  addition,  certain  parameters  and  ASCII  character  variables 
arc  defined  in  data  statements  in  FREFORM.  Parameter  values  suitable  for 
the  DEC-10  and  the  PDP-11/10  computers  are  given  in  Table  1.  In  general, 
these  parameters  must  be  selected  for  system  compatibility  as  well  as  the 
intended  application.  The  parameters  NCIW  and  NCRW  (number  of  characters 
per  integer  word  or  real  word,  respectively)  are  needed  to  pack  character 
data  and  to  decode  numerical  data.  The  parameter  NCPS  (number  of 
characters  per  process  string)  determines  the  length  of  the  largest 
numerical  constant  which  may  be  processed;  NCPS  should  be  small  enough 
that  numbers  beyond  the  range  of  the  machine  will  not  be  accepted.  Since 
NCPS  also  determines  the  length  of  the  largest  alphanumeric  constant  which 
may  be  processed,  it  is  often  convenient  to  make  NCPS  some  Integral 
multiple  of  NCRW.  (Note  also  that  the  length  of  the  .ICST  array  must 
always  be  greater  than  NCPS.  This  prevents  overflow  of  the  array  and 
ensures  the  existence  of  at  least  one  blank  at  the  end  of  every  process 
string. ) 
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TABLE  1 

SYSTEM-DEPENDENT  PARAMETERS 


Parameter 


DEC- 10 


PDP-11/10 


NCIW 

5 

NCRW 

5 

NCPS 

■ 

20 

NCPI 

80 

NIPS 

1 

2 

4 

20 

80 

1 


I 


1 1 


» 


The  proper  value  of  NCPI  (number  of  characters  per  image) 
depends  on  the  file  or  I/O  device  from  which  data  is  read.  A  large  value 
may  be  useful  when  reading  large  sections  of  text  since  all  of  the  text 
can  be  returned  at  one  time.  Setting  NIPS  to  unity,  however,  makes  each 
sequence  string  exactly  one  record  image  in  length.  This  choice  is  more 
suitable  for  terminal  applications,  since  it  allows  the  operator  to  omit 
slashes  from  the  data  sequence. 

THE  ASCII  character  variables  are  used  by  PREFORM  for  comparison 
tests.  JCSL,  JCAS,  JCSP  and  JCCO  are  used  to  identify  delimiters.  JCMI, 
JCPL,  JCAE,  JCDP,  JCNI  and  JCNF  are  used  to  Identify  parts  of  a  numerical 
constant.  JCAI  and  JCAF  are  used  to  determine  whether  the  first  character 
in  a  process  string  is  alphabetic.  The  bits  containing  the  character  in 
each  of  the  character  variables  must  occupy  the  same  position  within  the 
machine  word  as  they  do  in  the  storage  arrays  JCIM  and  JCST  for  the 
comparison  tests  to  function  correctly.  The  diagnostic  mode  in  PREFORM 
can  be  enabled  by  changing  the  value  of  a  flag  (ITST  is  initialized  in  a 
data  statement)  from  zero  to  unity.  This  will  result  in  a  listing  of  the 
system  dependent  parameters  when  PREFORM  is  first  executed.  In  addition, 
all  data  processed  in  this  mode  will  be  listed  at  various  stages  of 
processing.  This  diagnostic  capability  is  provided  to  aid  in 
implementation  of  PREFORM  on  a  different  system.  An  example  of  its  use 
follows . 


3.2  TESTING  WITH  TESTFF 

The  main  program,  TESTFF,  is  intended  to  provide  demonstration 
and  validation  capability.  It  allows  a  terminal  operator  to  send  data 
sequences  to  PREFORM,  and  to  Immediately  inspect  the  processed  results. 

To  use  TESTFF,  the  type  of  data  (see  Section  2,3.2)  must  be 
specfled  by  a  keyword  at  the  beginning  of  each  sequence  string.  (If  the 
data  type  is  not  specified  in  the  first  sequence  string,  program  execution 
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is  terminated.)  Once  a  data  type  has  been  specified,  all  sequence  strings 
are  assumed  to  be  of  that  type  until  a  new  type  is  specified.  TESTFF 
recognizes  three  data  type  keywords:  "INTG",  "FLTG" ,  and  "TEXT".  Program 
execution  is  terminated  by  the  keyword,  "STOP",  which  must  occur  at  the 
beginning  of  a  sequence  string.  Any  data  following  the  word  "STOP"  will 
not  be  printed  by  program  TESTFF. 

Table  2  presents  output  from  a  sample  run  in  the  diagnostic  mode 
made  interactively  from  a  terminal  console.  Note  that  the  output 
originates  both  from  TESTFF  and  from  PREFORM  (diagnostic  mode).  The 
source  is  clearly  Indicated  by  the  headers  at  the  beginning  and  end  of 
each  section  of  output. 

The  first  execution  of  PREFORM  (diagnostic  mode  is  enabled) 
produces  a  listing  of  the  system-dependent  parameters  and  ASCII 
characters.  In  the  first  example,  the  data  sequence  begins  with  the 
keyword  "TEXT".  Diagnostic  output  from  PREFORM  shows  the  actual  process 
strings,  while  the  TESTFF  output  lists  the  representation  of  each  word  in 
the  array,  VALU.  Thus,  characters  representing  the  word  "TEXT^"  are 
stored  in  VALU(l),  and  so  forth. 

The  second  example  differs  from  the  first  in  that  alphanumeric 
text  is  used  (asterisk  delimiters).  Note  the  embedded  blanks,  commas,  et 
cetera  in  the  processed  output.  The  third  example  involves  integer 
numbers.  Note  the  representation  of  a  null  value,  produced  by  two 
adjacent  commas.  Floating  point  numbers  are  processed  in  the  fourth 
example,  which  includes  a  deliberate  error  (5F2  is  syntactically 
unrecognizable).  The  resulting  error  message  would  have  been  produced 
even  if  the  diagnostic  mode  is  disabled. 

The  final  example  consists  of  three  sequence  strings  of  text. 
(The  first  two  are  delimited  by  slash  characters.)  Note  that  the  integer 
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value,  2,  in  the  second  string  is  correctly  interpreted  by  FREFORM,  even 
though  TESTFF  attempts  to  print  the  result  in  a  text  (alphanumeric) 
format.  The  final  sequence  string  contains  the  keyword  "STOP",  which 
terminates  execution  of  TESTFF. 
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SECTION  A 


FLOW  DIAGRAMS 


This  section  describes  the  operation  of  program  TESTFF  and 
subroutine  PREFORM.  In  general,  the  code  breaks  down  into  a  number  of 
relatively  well-defined  algorithms.  Each  such  algorithm  is  presented  on  a 
separate  flowchart,  and  is  given  a  unique  name,  such  as  "INTEGER",  for 
example.  Then  the  use  of  this  particular  algorithm  by  other  sections  of 
the  code  would  be  indicated  by  the  symbol,  f IlNTEGERJ 1  ,  in  the  flowcharts. 

The  following  discussion  refers  to  the  flowcharts  of  TESTFF, 
shown  in  Figures  2,  3,  and  4.  At  the  beginning  of  the  program,  a  header 
is  printed.  The  major  loop  is  then  executed  until  it  is  terminated  by  the 
flag  ISTP.  Inside  the  loop,  PREFORM  is  called.  The  second  loop  (number 
2)  checks  the  data  value  in  the  first  element  of  array  VALU  against  each 
of  the  four  keywords  "INTO",  "FLTG",  "TEXT",  and  "STOP".  (The  keywords 
are  contained  in  an  array,  VWRD.)  If  a  match  occurs,  the  flag  JFLG  is  set 
to  the  current  value  of  the  loop  index,  INDX.  Following  the  loop,  a 
header  is  printed.  A  "computed  GOTO"  on  JFLG  is  then  executed  causing  a 
branch  to  one  of  four  program  blocks  which  corresponds  to  the  keyword 
matched.  Three  of  the  blocks  (corresponding  to  keywords  "INTG",  "FLTG", 
and  "TEXT")  cause  the  contents  of  VALU  to  be  printed  in  a  format  described 
by  the  keyword.  Use  of  the  variable  NFST  in  program  blocks  "INTG"  and 
"FLTG"  permits  the  keyword  to  be  printed  in  character  code  format.  The 
fovirth  block  sets  the  flag  ISTP  and  causes  tlie  word  "STOP"  to  be  (irinted. 
When  the  major  loop  is  terminated,  a  footing  is  printed,  and  execution 
stops. 
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CALL  FKEFOR(VALfr,NVAL) 
NFST=1 


A=VWRD( INDX) .NE.VALUC 1 ) 


Figure*  2.  Tho  Gonural  SLrucLuru  of  Lho  Test  .Algorithm 


A  complete  list  of  variables  and  definitions  used  in  subroutine 
PREFORM  is  presented  in  Table  3.  The  general  structure  of  PREFORM  is 
shown  in  Figure  5.  The  single  alternative  decision  block  at  line  260  is 
part  of  the  diagnostic  package.  The  rest  of  the  diagnostic  package  is 
contained  in  the  decision  block  in  Figure  6,  and  in  "DIAGNOSEI"  and 
"DIAGN0SE2"  ( Figure  7),  Note  that  "DIAGNOSEI"  is  executed  only  on  the 
first  call  to  the  subroutine. 

The  major  loop  (number  1)  in  Figure  5  is  executed  until  the  end 
of  the  current  sequence  string.  Section  2.2  describes  the  basic  steps 
which  occur  inside  this  loop.  Steps  (1)  and  (2)  mentioned  there  occur  in 
the  "FILLSTRING"  algorithm  (Figure  8).  The  test  described  in  Step  (3)  is 
shown  in  Figure  5  at  line  240.  Step  (4)  occurs  in  either  "NUMBER"  (Figure 
12)  or  "CHARACTER"  (Figure  19). 

Figure  8  shows  the  "FILLSTRING"  algorithm.  In  the  first  loop 
(number  2),  the  array  JCST  is  filled  with  blanks.  The  process  string  loop 
(number  3)  is  executed  until  the  process  string  is  terminated.  The 
aecislon  block  at  the  top  of  the  loop  fetches  a  new  record  image  when 
needed  (see  "READCARD"  in  Figure  9)  or  terminates  the  sequence  string  when 
NIPS  records  have  been  read.  Each  time  through  the  loop,  one  character 
from  the  current  record  image  is  tested  and  may  be  placed  in  the  process 
string.  Testing  and  storing  occurs  in  "TESTl"  (Figure  10)  and  "TEST2" 
(Figure  11).  Note  that  the  process  string  may  be  terminated  by  a  blank,  a 
comma,  or  a  slash,  or  by  the  test  at  line  380,  when  NCPS  characters  have 
been  read. 


The  "NUMBER"  algorithm  is  shown  in  Figure  12.  Integers,  as  well 
as  the  integer  portion  of  fixed  point  numbers  and  floating  point  number 
mantissas  are  all  processed  in  "INTEGER"  (Figure  13).  Tlie  portion  of  any 
number  to  the  right  of  a  decimal  point  Is  processed  in  "DECIMAI,"  (Figure 
15)  and  stored  In  "STORDEC"  (Figure  16).  Exponents  are  processed  in 
"EXPONENT"  (Figure  17)  and  stored  in  "STOREXP"  (Figure  18).  In  "STORNl'M" 
(Figure  19),  valid  processed  numbers  are  placed  in  the  VALU  array  and  an 
error  message  Is  printed  for  incorrectly  formatted  numbers. 


TABLE  3 

VARIABLE  DEFINITIONS  FOR  PREFORM 


DFCT  -  facLor  usod  to  compute  DSTO 

DSTO  -  variable  to  store  decimal  portion  of  number 

ESGN  -  sign  of  exponent 

ESTO  -  variable  to  store  exponent 

EXPN  -  exponential  multiplier  for  number  processing 

lALP  -  flag  for  alphanumeric  character  string  processing 

ICIM  -  image  position  of  first  character  in  the  process  string 

ICOM  -  flag  to  detect  sequential  commas 

lERR  ~  flag  to  indicate  error  in  numerical  value 

IFLD  -  flag  to  indicate  text  processing 

INDO  -  index  for  general  use 

INDl  -  index  for  general  use 

lONC  -  flag  to  indicate  first  execution  of  subroutine 
IPRO  -  flag  to  initiate  word  processing 

IRET  -  flag  to  exit  subroutine  after  sequence  completion 
ISTO  -  variable  to  store  integer  portion  of  number 
ISTR  -  flag  to  transfer  character  from  image  to  process  string 
ITST  -  flag  to  produce  system  diagnostic 

JCAE  -  ASCII  character  for  fifth  alphabetical  character,  (E) 

JCAF  -  ASCII  character  for  final  alphabetical  character,  (Z) 

JCAI  -  ASCII  character  for  initial  alphabetical  character,  (A) 
JCAS  -  ASCII  character  for  asterisk  symbol,  (*) 

JCCO  -  ASCII  character  for  comma  symbol,  (,) 

JCDP  -  ASCII  character  for  decimal  point,  (.) 

JCHA  -  current  character  in  the  record  image 
JCIM  -  array  of  characters  in  the  record  image 
JCMI  -  ASCII  character  for  minus  symbol,  (-) 

JCNF  -  ASCII  character  for  final  decimal  character,  (9) 

JCNI  -  ASCII  character  for  initial  decimal  character,  (0) 
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TABLE  7>  -  continued 


JCPL  -  ASCII  character  for  plus  symbol,  (+) 

JCSL  -  ASCII  character  for  slash  symbol,  (/) 

JCSP  -  ASCII  character  for  space  symbol,  (  ) 

JCST  -  array  of  characters  in  the  process  string 

JCTF  -  character  transfer  variable  in  number  processing 

JNUM  -  array  of  decoded  digits  for  number  processing 

NCCT  -  number  of  characters  counted 

NCIM  -  pointer  for  the  image  string  character  array 

NCIW  -  maximum  number  of  characters  per  integer  word 

NCLW  -  number  of  characters  in  the  last  word  processed 

NCPI  -  maximum  number  of  characters  per  image  siring 

NCPS  -  maximum  number  of  characters  per  process  string 

NCRW  -  maximum  number  of  characters  per  real  word 

NCST  -  actual  number  of  cliaracters  in  the  process  string 

NCTF  -  number  of  characters  transferred  in  lumber  processing 

NFST  -  position  of  first  character  to  be  transferred 

NIMS  -  number  of  images  processed  in  current  sequenc.,'  string 

NIMT  -  total  number  of  record  images  processed 

NIPS  -  maximum  number  of  images  per  sequence 

NLST  -  position  of  last  character  to  be  transferred 

NPRO  -  pointer  for  the  process  string  character  array 

NSEQ  -  total  number  of  sequence  strings  processed 

NSGN  -  sign  of  number 

NVAL  -  pointer  for  the  output  array  VALU 
NWTF  -  number  of  words  transferred  in  number  processing 
RNUM  -  array  containing  decoded  digits  in  number  processing 
VALU  -  output  array  containing  processed  data 


The  "INTEGER"  and  "EXPONENT"  algorithms  have  similar 
structures.  A  decision  block  at  the  beginning  detects  an  algebraic  sign, 
and  a  counting  loop  then  determines  the  number  of  numerals  before  the  next 
non-numerical  character.  Note  that  the  character  which  terminates  the 
counting  loop  may  be  the  blank  which  is  appended  to  every  process  string. 
Each  of  the  numerals  counted  is  used  to  form  an  integer  value  in  "STORINT" 
or  "STOREXP". 

The  formation  of  an  integer  value  from  ASCII  characters  is 
accomplished  by  an  ENCODE/DECODE  statement  pair  and  a  small  loop,  all 
located  within  a  larger  outer  loop.  ASCII  characters  in  the  elements  of 
JCST  are  packed  into  a  temporary  variable,  JCTF,  by  the  ENCODE  statement. 
The  characters  are  then  converted  to  integer  representation  one  at  a  time, 
and  placed  in  the  elements  of  JNUM  by  the  DECODE  statement.  The  integer 
representations  in  the  elements  of  the  JNUM  array  are  multiplied  by 
decreasing  powers  of  (10)  and  summed. 

"DECIMAL"  is  similar  to  "INTEGER"  and  "EXPONENT”,  with  two 
exceptions.  First,  no  tests  are  made  for  an  algebraic  sign.  Second,  each 
of  the  numerals  counted  is  used  to  form  a  decimal  fraction.  Note  that 
"DECIMAL"  is  not  executed  unless  the  character  (rrminating  the  counting 
loop  in  "INTEGER"  is  a  decimal  point. 

Error  analysis  occurs  in  two  places  in  the  number  processing 
algorithm.  The  first  check  occurs  after  the  integer  and  decimal  process¬ 
ing  algorithms,  at  line  A50  of  "NUMBER".  A  Lest  is  made  to  determine 
whether  the  next  character  is  the  letter  "E".  If  so,  then  the  exponent  is 
processed;  if  not,  then  an  error  flag  is  set.  The  second  check  occurs  at 
the  end  of  "EXPONENT".  Again,  a  test  is  made  to  determine  whether  the  end 
of  the  process  string  has  been  reached.  If  not,  then  an  error  flag  is 
set. 
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In  the  "CHARACTER"  algorithm  (Figure  19),  every  character  in  the 
process  string  (except  the  appended  blank)  is  packed  into  the  VALU  array 
with  an  ENCODE  statement.  The  counter  NVAL  is  then  incremented  by  the 
number  of  words  stored  in  VALU. 
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A=  (lALP.EQ.l) .OR.  (JCST(1).LE.JCAF.AND.JCST(1).GE.JCAI) 


Figurvi  5.  The  General  Structure  of  FKEFORM. 
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READ  (5,10)  (JCIM(INDO), 
INDO  =  1,  NCPI) 
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Figure  9.  ObLaining  a  New  Record  Image 
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I'-),  Tt'sti'iy.  .ind  Slorinr,  Lli.i  i‘.u:  t 


INTEGER 


Figuro  13.  Processing  Integer  Portion. 
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WR1TK(6,90)  IC1M,(JCST 
(INDO),IiN'DO=l  ,NCRS) 
WR1TE(6,100) 


MCTK=NCRW*  (  1  +  (XCr.T- 1  )  /RCKU  ) 

F,riCODi:(\'CTK,  1  0,VA1,(I(RVAL+!  )  )  (JCST(  I  NDO),  I  \’1)U=  1 ,  RCS  T) 
t:VAl,=\’VAl,+  l+(NCST-I  )/N(:KW 


VALL'(NVAL)=RSGM* 

(FLOAT(ISTO)+DSTO) 

*10.**(ESGM*F8TO) 


SECTION  5 
FORTRAN  LISTING 


This  section  presents  FORTRAN  listings  for  the  program,  TESTFF, 
and  the  subroutine,  PREFORM,  exactly  as  implemented  on  the  DEC-10 
computer. 


I 


» 


» 


o  r->  n  r> 


FRC[.RArl  TESTFF 


C 

C  tiUmtUi  VALIDATES  PERFORMANCE  OF  SUBROUTINE  FREFOR 
C 

C  THE  PURPOSE  OF  PROGRAM  TESTFF  IS  TO  VALIDATE  THE  PERFORMANCE  OF 
C  SUEROUriNE  FREFOR.  TESTFF  ALLOCS  DATA  TO  EE  SE/NT  TO  FREFOR, 

C  AND  PRINTS  THE  VALUES  RETURNED.  ALL  OF  THE  VALUES  RETURNED  FROM 
C  EACH  SEQUENCE  STRING  ARE  PRINTED  ACCORDING  TO  THE  SAME  FORMAT 

C  SPECIFICATON.  THIS  IMPOSES  ONE  RESTRICTION  ON  THE  NORMAL  OPERATION 

C  OF  SUBROUTINE  FREFOR:  ALL  OF  THE  VALUES  RETURNED  FROM  EACH 
C  SECUENCE  STRING  MUST  BE  OF  THE  SAME  DATA  TYPE. 

U 

C  THE  TYPE  MUST  BE  SPECIFIED  BY  THE  USER  BY  A  KEYWORD  AT  THE 

C  BEGINNING  OF  EACH  SEQUENCE  STRING.  IF  THE  DATA  TYPE  IS  NOT 

C  SPECIFIED  IN  THE  FIRST  SECUENCE  STRING,  PROGRAM  EXECUTION  IS 
TERMINATED.  ONCE  A  DATA  TTPE  HAS  BEEN  SPECIFIED,  ALL  SECUE!:CE 
STRI: CS  ARE  ASSUMED  TO  BE  OF  THAT  TYPE  UNTIL  A  NEW  TYPE  IS 
SPECIFIED.  THREE  DATA  TYPE  KEYWORDS  ARE  RECOGNIZED:  "INTC" 

(FOR  INTEGER  VALUES),  "FLTG"  (FOR  FLOATING  POINT  AND  FIXED  POINT 
C  VALUES),  AND  "TE'^'^'’  (FOR  ASCII  CHARACTER  STRINGS). 

C 

C  NUMERICAL  FORMAT  SPECIFICATIONS  IN  PROGRAM  TESTFF  MATCH  THE  RANGE 
C  OF  VALUES  ACCEPTED  BY  SUBROUTINE  FREFOR.  THE  TEXT  FORMAT 
C  SPECIFICATION  IN  TESTFF  UlLL  ACCCMODATE  10  ASCII  CHARACTERS,  BUT 
C  THE  MAXIMUM  LENGTH  OF  TEXT  STRINGS  RETURNED  BY  SUBROUTINE  FREFOR 

C  IS  DETERMINED  BY  THE  WORD  LENGTH  AND  NUMBER  OF  BITS  PER  CHARACTER 

C  OF  THE  SYSTEM  BEING  USED. 

C 

C  PROGRAM  EXECUTION  IS  TERMINATED  BY  THE  KEYWORD  "STOP",  WHICH 
C  MUST  OCCUR  AT  THE  BEGINNING  OF  A  SEQUENCE  STRING.  ANY  DATA 

C  FOLLCIIING  THE  WORD  "STOP"  WILL  NOT  BE  PRINTED  BY  PROGRAM  TESTFF. 

C 

C 

c 

c  format  definitions 

i; 

10  FORMAr(/l/.R.?(tH*),31H  PPOGRAM  TESTFF  -  MARCH  IVCi  .ZSdH*)//) 

CO  rCRMAr(/)X,R/,(lH»)  ,E3.‘I  OUPUT  FROM  PROCPAM  TCCIFF  ,2q(U!*)) 

Zu  FCr-MAt(/1X,CMlHr.)  .iUH  END  CUIPUT  PROM  PROCPAM  TEGTOF  ,RM(1H*1) 

AO  rrjRMATdX.IlO) 

SO  FCRMATdX.ElA  fe) 

GO  FCRMAT(IX.AIO) 

70  rORMAT(/lv,S'Mi't)  ,4':h  PROGRAM  TESTFr  - 
1  S’OdHJ'),/) 


rxrCLTIE'J  COMPLETED 


c 

c 

REAL  'v'ALU(50),WRD(4) 

C 

DATA  'v‘L!RD/4HINTG , THFLTG , 4HTEXT . 4HSTG?/ 

DATA  EURD/IH  / 

C 

C  INITIALIZE  I/O  UNIT  6  TO  TERMINAL. 

OPEN(UNIT=fe,  DEVICE='TTY') 

C 

C  PRINT  PROGRAM  HEADER.  INITIALIZE  FLAGS. 

URITE(6,iO) 

JFLG=4 

ISTP-^fl 

C 

c  %nmu%U'iunnn  loop  until  stop  requested  nninmntnun 

r, 

80  CALL  FREFQR  (VALU.NVAL) 

NFST=1 

C 

C  TEST  FIRST  VALUE  FOR  KEYWORD,  SET  JFLG. 

DO90INDX=i,4 

IF(WRD(INDX).NE.VALU(i))GOTO90 
JFLG=INDX 
NFST=2 
90  CONTINUE 
C 

C  PRINT  OUTPUT  HEADER,  THEN  BRANCH  TO  PRINT  VALUES. 

URITE(6,20) 

GOTO(i00,ii0,120,i30)JFLG 

C 

C  INTEGER  PROCESSING. 

C 

C  PRINT  KEYWORD  IN  CHARACTER  FORMAT. 

100  IFCNFST.EQ.DGOTOIOE 

URITE(6,60)VALU(i) 

C 

C  PRINT  VALUES  IN  INTEGER  FORMAT. 

lOS  IF(NVAL.LT.NFST)GOTO140 

DO109INDX=NFST,NVAL 
IF(VALU(INDX).NE,IURD)GOTO108 
HRITE(6,60)&WRD 
GOTO!  [9 

1C3  INTG=VALU(INDX) 

WRITE(6,40)IN]G 
U?  CONTINUE 
GOT01-’.0 


C 


c 

c 

c 


FLGftTlNG  POI«T  NUHBER  PROCESSING. 


PRINT  KEYWORD  IN  CHARACTER  FDRHAT. 

110  IF(NFST.EQ.l)G0T0il2 
«RITE(6,6Q1'.'ALU(1) 

C 

C  PRINT  VALUES  IN  FLOATING  POINT  FDRHAT 

112  IF(NyAL.LT.NFST)GOTClTO 
D0il91IIDX=NFST,NVAL 
IF<VALU<INDX).NE.mD)G0T01iH 
UR1TE(E,E0)B1IRD 
GQTQ119 

118  WRITE(I>,S0)VALU(1NDX) 

119  CONTINUE 
G0T014I] 

C 

C  TEXT  PROCESSING. 

C 

C  PRINT  VALUES  IN  CHARACTER  FDRHAT. 

120  yRITElS.SQKVALUdNDX)  ,INDX=i,NVAL) 
G0T014(i 

C 

C  TER'rtINATE  PROGRAH  EXECUTION. 


C 

C  PRINT  “STOP',  SET  ISTP. 

130  URIT£(6,60)VURD(4) 

ISTP=i 

C 

C  PRINT  OUTPUT  FOOTING,  TEST  ISTP  TO  CONTINUE. 
140  URITE(fc,30) 

IFdSTP.EQ.OIGQTQSQ 


C 

C 

C 


PRINT  PROGRAH  FOOTING. 
UR1TE(A,?0) 


SLlEP.Q!jTi;iE  FREFOP  (VALU.NvAL) 


C 

c  fituun  PROCESSES  FREE-FGRHAT  DATA  TO  INTERNAL  FORHAT 
C 

C  SUI-ROUTII.E  FREFOR  IS  DESIGNED  TO  PROCESS  FREt-FORHAT  DATA  UHICH 
C  IS  OBTAINED  FROM  AN  EXTERNAL  RECORD,  FOR  EXAiiPLE,  A  CARD  READER 

C  OS  AN  INTERACTIVE  CONSOLE.  THE  DATA  MUST  CONSIST  OF  A  STRING 

C  OF  ASCII  CHARACTERS,  INCLUDING  THE  DELIHITERS,  SPACE!  ),  CGri»A(,), 

C  ASTERISK(.i),  AND  SLASH!/).  FREFOR  INTERPRETS  DATA  SEQUENTIALLY 

C  ACLCRDING  TO  ITS  INTERNAL  FQRHAT,  AND  STORES  INTERNAL  VALUES  IN 
C  AN  ARRAY  IVALU).  FOUR  TYPES  OF  VALUES  ARE  RECOGNIZED. 

C 

C  (1)  NUMERICAL  CONSTANT  -  RATIONAL  NUMBER  CONSTANTS  ARE 
C  RECGSNIZED  IN  FIXED,  FLOATING,  AND  EXPONENTIAL  FORI', ATS 
C  lE.i.ANRLES  -  1A3,  3.14159,  i.E-07).  VALUES  MUST  BE 

C  SEPARATED  BY  SPACE  OR  COMMA  DELIMITERS.  NON’ESSENTIAL 

C  CHARACTERS  'JILL  EE  AUTOMATICALLY  SUPPLIED  DURING 
C  INTERPRETATION  (TH'.)S,  FOP  EXAMPLE,  iE-7  AND  i.CE-97  JILL 

C  PE  INTERPRETED  IDENTICALLY).  THE  NUMBER  OF  CHARACTERS 

C  DEVOTED  TO  A  SI.NGLE  CCNSTA.NT  IS  LIMITED  TO  NCPS  (DEFINED  IN  A 

C  DATA  STATEMENT). 

C 

C  (2)  ALPHANUMERIC  CONSTANT  -  ALPHANUMERIC  CONSTANTS  ARE 
C  RECOGNIZED  BY  THE  FIRST  CHARACTER,  UHICH  MUST  BE 

C  ALPHABETICAL.  SUCCEEDING  CHARACTERS  MAY  BE  ALPHAE:ETICAL , 

C  NUMERICAL,  OR  ANY  ASCII  SPECIAL  CHARACTER  OTHER  THAN  SLASH 

C  OR  ASTERISK  (EXAMPLES  -  A123,  ZT45,  START).  VALUES 

C.  MUST  BE  SEPARATED  BY  SPACE  OR  COMMA  DELIMITERS.  THE 

C  NUMBER  OF  CHARACTERS  DEVOTED  TO  A  SINGLE  CONSTANT  IS 

C  LIMITED  TO  NCPS. 

C 

C  (3)  NULL  VALUE  -  A  NULL  VALUE  IS  CREATED  BY  RECOGNITION  OP 
C  SUCCESSIVE  COMMAS,  UITH  NO  INTERVENING  CH.TFACTFf’S . 

C  (BLANKS,  OR  SPACES,  BETUEEN  ADJACENT  COMMAS  'JILL  PE 

C  IGNORED,  FOR  EXAMPLE,  THE  CHARACTER  STRING  (,  ,,)  MILL 

C  PRODUCE  TUG  NULL  'VALUES.) 

C 

C  (4)  TEXT  -  ANY  CHARACTER  STRING  DELIMITED  BY  T',;0  ASTERISKS 

C  (Ai  BEGINNING  AND  END)  MILL  BE  RECOGNIZED  AS  TEXT,  AND  '/ILL 

C  BE  RETAINED  INTACT  UITH  EMBEDDED  SPACES,  COMMAS,  AND  ALL 

C  ASCII  CH.ASACTERS  EXCEPT  THE  SLASH  AND  ASTERISK,  THE 

C  TEXT  '•ILl.  be  coded  IN  AS  MANY  VALUES  AS  ARE  REQUIRED  TO 

C  PROCESS  THE  STPING, 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 


c 


THE  OPERATION  OF  FREFOR  RELIES  UPON  DEFINITION  OF  FOUR  TYPES 
OF  CHARACTER  STRINGS,  EACH  IN  GENERAL  CONTAINING  A  DIFFERENT 
NUHEER  CF  CHARACTERS.  THE  RELATIONSHIPS  PETUEEN  THE  FOUR  TYPES 
or  CHARACTER  STRINGS  ARE  AS  FOLLOLS. 

(1)  RECCRD  STRING  -  THIS  IS  THE  COHPLETE  SET  OF  ALL 
SEQUENCE  STRINGS  TQ  EE  PROCESSED  THROUGH  SEQUENTIAL 
EXECUTIONS  OF  FSEFOR, 

(2)  SECUENCE  STRING  -  UITHIN  THE  RECORD  STRING  NAY  EXIST 
ANY  NUHSER  OF  SECUENCE  STRINGS,  DELIrtITED  BY  A  SLASH 

AT  THE  TRAILING  END.  NO  DELIHITER  IS  REQUIRED  IF  THE 
SECUENCE  STRING  IS  LIlilTED  BY  THE  SFECIFIED  NUHE'ER  OF 
RECORD  InAGES  (NIPS).  OTPiERUISE,  THESE  HAY  BE  ANY 
NUHBER  OF  IHAGES  PER  SEQUENCE  STRING. 

(3)  RECORD  IHAGE  -  THIS  IS  THE  CHARACTER  STRING  UHICH 
EXISTS  UN  A  SINGLE  INAGE.  FOR  EXAliPLE,  AN  IHAGE  NIGHT 
CONSIST  OF  A  FORTRAN  CARD,  IN  L'HICH  CASE  THE  RECORD 
INAGE  CONSISTS  OF  80  CHARACTERS. 


(4)  PROCESS  STRIN’G  -  THIS  IS  AN  INTERNAL  CHARACTER 
STRING  USED  IN  FREFQR  TO  PROCESS  DELIMITED  DATA. 

THE  LENGTH  OF  THE  STRING  IS  SPECIFIED  BY  NCPS,  WHICH 
MUST  BE  AN  INTEGER  MULTIPLE  OF  THE  NUMBER  OF  ASCII 
CHARACTERS  UHICH  CAN  BE  STORED  IN  A  SINGLE  MACHINE 
LORD.  IN  EFFECT,  THE  PROCESS  STRING  LIMITS  THE 
LENGTH  GF  ALPHANUMERIC  CQ)IBTANTS  AND  THE  ACCURACY  OF 

numerical  constants. 


SUBROUTINE  FREFQR  RECOGNIZES  INCORRECTLY  FORMATTED  NUMBERS  AND 
PRINTS  AN  ERROR  DIAGNOSTIC.  TWO  ERRORS  ARE  RECOGNIZED. 

(1)  SYNTAX  ERROR  IN  THE  MANTISSA  -  ANY  STRING  (EXCLUDING  TEXT 
DELIMITED  BY  ASTERISKS)  LEGINNING  UITH  A  NONALPHABETICAL 
CHARACTER  IS  ASSUMED  TQ  BE  A  NUMERICAl.  CONSTANT.  IF  THIS 
CONSTANT  CANNOT  BE  INTERPRETED,  A  CYNTAX  ERROR  PES'.iLTS . 
(EXAMPLES:  25.00F+02,1  +15,  (.STRING) 

(2)  SYNTAX  ERROR  IN  THE  E/PCDF.NT  -  THE  EXPONENT  OF  A  NliMERICAL 
CCNSTANT  MUST  BE  AN  INTCGER  UALUE.  (IT  MAY  INCLUDE  AN 
ALGEBRAIC  SIGN).  IF  AN  EXPONENT  CANNOT  BE  INIERP-ETED  A 
SYNTAX  ERROR  RESULTS.  {EXAMPLES.  SEC.,  2EE3,  2E- I ) 

THE  PPOCECSIliG  GF  DATA  BY  SUBROUTINE  FREFCR  OCCURS  IN  FOU':' 

MAJOR  STEPS. 

'1;  A  RECORD  IMAGE  IS  READ  INTO  AN  INTEGER 


APR  At.  JCIH, 


C  ONE  CHi^kAClER  IS  PLACED  IN  EACH  ARRAY  ELEhEHT .  A  NE'I 
C  RECORD  li'.AGE  IS  OBTAINED  WHEN  ALL  OF  THE  CHARACTERS  ON 
C  THE  PREVIOUS  IMAGE  HAVE  LEEN  INTERPRETED. 

C 

C  (2)  EACH  CHARACTER  IN  JCIH  IS  TESTED  AGAINST  EACH  OF  THE 

C  FOUR  ST.RING  DELIMITERS  AND  THEN  STORED  IN  AN  INTEGER  ARRAY, 

C  JCST,  WHICH  CONTAINS  THE  PROCESS  STRING.  ONE  CHARACTER  IS 

C  STORED  IN  EACH  ARRAY  ELEMENT.  HHEH  A  DELIMITER  IS  DETECTED, 

C  TESTING  STOPS  AND  PROCESSING  IS  INITIATED. 

C 

C  (3)  A  TEST  IS  HADE  TO  DETERMINE  WHETHER  THE  PROCESS  STRIriG 
C  CONTAINED  IN  JCST  IS  A  HUriERICAL  VALUE  OR  AN  ALPHANUMERIC 
C  CHARACTER  STRING. 

C 

C  (4)  THE  CONTENTS  OF  JCST  ARE  INTERPRETED  AND  THEN  STORED  IN 

C  THE  ARRAY  VALU  BY  EITHER  A  NUMBER  DECODIIJG  ALGORITHM  OR  A 

C  CHARACTER  STRING  PACKING  ALGORITHM,  ACCORDING  TO  THE  RESULT 

C  OF  THE  TEST,  THE  ARRAY  VALU  IS  RETURNED  TO  THE  CALLIi.'G 

C  PRCGRAH  UNIT  WHEN  THE  ENTIRE  SEOUENCE  STRING  HAS  BEEN  READ, 

C  TRANSLATED  AND  STORED. 

C 

C  SUBROUTINE  FREFOR  CONTAINS  A  SYSTEM  DIAGNOSTIC  MODE,  IT  IS 

C  SELECTED  BY  SPECIFTING  ITST=i.  THE  DIAGNOSTIC  MODE  C.'J.SES  A 

C  LISTING  OF  THE  SYSTEM-DEPENDENT  PARAMETERS  AND  ASCII  CH.ARACTER 

C  VARIABLES  TO  EE  PRINTED  ON  THE  FIRST  CALL.  SUBSEQUENTLY,  ALL 
C  RECORD  IMAGES  AND  PROCESS  STRINGS  WILL  BE  PRINTED  PRIOR  TO 
C  TRANSLATION, 

C 

C 

c  unmttui-ii.mu'i'va  variable  definitions  m-ttnutntnnmn 

c 

C  DFCT  -  FACTOR  USED  TO  COMPUTE  D3T0. 

C  DSTO  -  VARIABLE  TO  STORE  DECIMAL  PORTION  OF  NUMBER. 

C  ESGN  -  SIGN  OF  EXPONENT. 

C  E5T0  -  VARIABLE  TO  STORE  EXPONENT. 

C  EXPtI  -  EXPONENTIAL  MULTIPLIER  FOR  HUMBER  PROCESSING. 

G  lALP  -  FLAG  FOR  ALPtlANUMERIC  CHARACTER  STRING  PROCESSING. 

C  ICIM  -  IMAGE  POSITION  OF  FIRST  CHARACTER  IN  THE  PROCESS  STRING. 

C  I  COM  -  FLAG  TO  DETECT  SECUENTIAL  COMMAS. 

C  lERR  -  FLAG  TO  li'DICATE  ERROR  IN  NUMERICAL  VALUE. 

G  IFLD  -  FLAG  TO  INDICATE  TEXT  PROCESSING. 

C  ItJDO  -  INDEX  FOR  GENERAL  USE. 

C  INDl  -  INDEX  FOR  GEfJERAL  USE. 

C  ICNC  -  FLAG  TO  INDICATE  FIRST  EXECUTION  OF  GLlBROUTIf'E. 

C  IPPO  -  FLAG  TO  INITIATE  WORD  PROCESSING. 

C  IRET  -  Fi.AG  TO  EXIT  BUBROUTINE  AFTER  SEQUENCE  COMPLETION. 

C  ISTG  -  variable  to  STORE  INTEGER  PCSTIGN  OF  NUMBER. 

C  is:?  -  FLAG  TO  T-^AnSFFR  CHARACTER  FROM  IMAGE  TO  PP1CESS  STRING 


■)(  I 


» 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

r 

<*« 

Lr 

c 

c 

c 

c 

c 

n 

c 

c 

c 

c 

c 

c 


ITST  -  FLAG  TO  PRODUCE  EYSTEi!  DIAG.’JOTTJC. 

JCAE  -  ASCII  CHAPAC7ER  FOR  FIFTH  ALPHADETICAL  CilAPACTER ,  (E). 

JCAF  -  ASCII  CHARACTER  FOR  FINAL  ALPHADETICAL  CHASACTES,  (7). 

JCAI  -  ASCII  CHARACTER  FOR  INITIAL  ALPHABETICAL  CHARACTER,  (A). 
JCAS  -  ASCII  CHARACTER  FOR  ASTERISK  SVilPOL,  (i) . 

JCCO  -  ASCII  CHARACTER  FOR  CO.IMA  SYHBL'L,  (,). 

JCCP  -  ASCII  CHARACTER  FOR  DECIMAL  POINT,  (,) 

JCHA  -  CURRENT  CHARACTER  IN  THE  RtCORD  lilAGE. 

JCi;i  -  ARRAY  OF  CHARACTERS  IN  THE  PECORD  IMAGE, 

JChl  -  ASCII  CHARACTER  FOR  HliiUS  SYMBOL.  (-). 

JCNF  -  ASCII  character  FOR  FINAL  DECIMAL  CHARACTER,  (9). 

JCNI  -  ASCII  CHARACTER  FOR  INITIAL  DFXIMAL  CHARACTFR,  (0). 

JCFL  -  ASCII  CHARACTER  FOR  PLUS  SYMUOL,  (+). 

JCSL  -  ASCII  CHARACTER  FOR  SLASH  SYMBOL,  (/) . 

JCSP  -  ASCII  CHARACTER  FOR  SPACE  SY.'IPC’L,  (  ). 

JCST  -  ARRAY  OF  CHARACTERS  IN  THE  PROCESS  STRING. 

JCTF  -  CHARACTER  TRANSFER  VARIABLE  IN  NUUBER  PROCESSING . 

JKUM  -  ARRAY  OF  BECODED  DIGITS  IN  NUMBER  PROCESSli’G. 

NCCT  -  NUMBER  OF  CHARACTERS  COUNTED. 

NCIM  -  POINTER  FOR  THE  IMAGE  STRING  CHARACTER  ARRAY. 

NCI'N  -  MAXIMUM  NUMBER  OF  CHARACTERS  PER  INTEGER  IIG'RO. 

NCL’,!  -  NUMBER  OF  CHARACTERS  IN  T.HE  LAST  WO.RD  PROrEFSED. 

NCPI  -  MAXIMUM  NUMBER  OF  CHARACTERS  PER  IMAGE  STRIi-G. 

NCPS  -  MAXIMUM  HUMBER  OF  CHARACTERS  PER  PROCESS  STRING. 

NCKU  -  MAXIMUM  NUMBER  OF  CHARACTERS  PER  REAL  IIORD. 

NCST  -  ACTUAL  NUMBER  OF  CHARACTERS  IN  THE  PROCESS  STRING. 

NCTF  -  NUMBER  OF  CHARACTERS  TRANSFERRED  BY  ENCORE/LFCGD S . 

NFST  -  POSITION  OF  FIRST  CHARACTER  TO  BE  TRA.NSFFRFED . 

NIMS  -  NUMBER  OF  I, MAGES  PROCE3.SED  IN  CURRENI  SEQUENCE  STRING. 
NIMT  -  TOTAL  MUMPER  OF  RECORD  IMciGES  PROCESSED. 

NIPS  -  MAXIMUM  NUMBER  OF  IMAGES  PER  SEOULNCE. 

fILST  -  POSITION  Or  LAST  CHARACTER  TO  BE  TRANSFERRED 

nPRO  -  POINTER  FOP  THE  PROCESS  STRING  CHARACTER  ARRAY. 

NSEO  -  TOTAL  NUMBER  OF  5ECUSNCE  STRINGS  PROCESSED. 

NEON  -  SIGN.  OF  NUllBER. 


NUAI. 

A’JTF 

P.NUM 


POIIIIER  FOR  THE  OUTPUT  ARRAY  VALU, 

flUM.DER  OF  HORDS  TRAIISFEi'RED  BY  rNCODE/DFrOiT. . 

ARRAY  CONTAINING  DECODED  DIGITS  IN  tli.'hbER  PROCESSING. 


VA;.U  -  OUIPU!  ARRAY  CONTAINING  PRULLSSED  DA'IA, 


INIEILR  EEGN.LSXJCIMCP/, ’CUTi?))  .J.)llM(iL) 
REAL  RNUMfili)  .VYtLU(Sj' 


Lata  ii!ni/'i,/,iijNC 


/,n:.ec/o/ 


» 


rj  ro 


c 

i: 


nnntnnnnnn  system-depehdesjt  pasahetees 

DATA  Nr.Ii|/5/,NCRU/5/,N'CPI/30/,KCPS/20/,t)IPS/l/ 

C 

C 

C 

c  UiU'iU^.UtUWtn  ASCII  CHARACTER  VARIABLES 
\] 

DATA  JCA£/iHE/,JCAF/iH2/,JCAI/lHA/,JCAS/lHls/,:CCG/lH,/,JCDP/iH./, 
i  JChI/iH-/.JCI,'F/lH9/,JCNI/lHS/,JCPL/lH+/,JCSL/iH//,JC3P/lH  / 

C 

C 

C 

C  DIAGNOSTIC  SNITCH 

C 

DATA  ITST/1/ 

C 

C 

c 

c  %UX)iUmU%U%%ttUU  FCRKAT  DEFINITIGiiS  iXUi%n\%UXtn%%i%n% 

i; 

iO  FORHAT(SOAi) 

0  FORMAT(/lX,25(lH'i),30H  SUBROUTINE  FREFOR  DIAGNOSTIC  ,25(iHt)) 

0  FC:RP,AT(i;T,26H  ASCII  CHARACTER  VARIABLES/) 

^0  F0RP;AT(1X,SK  JCAE.^XjAHJCAFjAX.THJCAI.AX.WJCAS, 

I  AX,-1HJCC0,4X,AHJCDP/ 

i  4H  ,Ai,5(7X,Ai)/) 

so  FORfiATdXjSH  JCMI,4X,4HJCNF,4X/.HJCNI,4X,4KJCPL, 

1  AX,4HJCSL,TX,4HJC£P/ 

1  AH  ,A1,S(7X,A1)/) 

SS  Fur<MAT<lX,26H  SYSTEfl-DEPENDENT  PARAMETERS/) 

fcO  FC'iMATdXjSH  ilCI!l,4X,4HI-;CRU,4X,4HNCPI,AX,4KrJCP3/X,4HNIPS/ 

1  3H  ,I2,4(&X,I2)) 

7C  FORMATdX.lldH*)  ,36H  ERROR  DETECTED  BY  SUBTOJTIfJE  FREFOR, 
i  17H  IN  RECORD  IMAGE  ,I4,lX,lldHd) 

SO  FriRMATdX.nOAi) 

90  FCRMATdX.OH  COLUMN-.  ,13, 2X,16HPROCESS  STRING:  ,20Ai) 

ICO  FORI',ATdX,GOdH-i<)///) 

no  rDPMAT(/iX,22dHi)  ,1611  END  DIAGNOSTIC  ,32(1H»)) 

120  FriF|iATdX,17H  SEOUENCE  ST- ING . ,  M,?X,  i3::i;£CCRD  INANE:, Id 
130  FORMAT d Oil) 

MG  rURMATdOFl.  0) 

ISO  FOPMATdjAl) 

C 

c 

c 

c  ‘(tnnntttix  begin  pporr-^siijr,  .;f:|  ^egl'ln'.e  suing 


c 

C  INITIALIZE  I/O  UNIT  h  TO  TERMINAL. 

0PEN(UNIT=6,  DEUICE='TTY') 

C 

C  THIS  SECTION  FIRST  TIME  ONLY. 

C 

IF(IONC.NE.0)GOTO200 

C 

C  INITIALIZE  FLAGS  FOR  FIRST  CALL. 
lONC^I 
NCIM=NCPI 
C 

C  DIAGNOSTIC;  ASCII  CHARACTER  VARIABLES 

C  SYSTEM  DEPENDENT  PARAMETERS. 

IF(ITST.EQ.0)GOTQ20a 

WRITE(6,20) 

WRITE(6,3Q) 

UR  I TE ( fc ,  A  0 ) JCAE , JC AF , JCAI , JCAS , J  CCO , JCDP 
liR  I T  E  ( S ,  S  0 )  J  CM  I ,  JCNF ,  JCN I ,  JCPL ,  JCSL ,  JCSP 
WRITE(S,55) 

WR I T  E  ( 6 ,  fc  0 )  NC  I'.! ,  NCR  U ,  NCP I ,  NCP  S ,  N I P  S 
URITE(t,110) 

C 

C  INITIALIZE  VARIABLES  FOR  NEW  SEDUENCE  STRING. 

i; 

200  IF(NCIM,EO,.NCPI)NIMS=0 
IFLD=0 
IRET=C 

NVAL^O 

I  CO, 1=0 
NSEO=N3EQ+i 
C 
C 
C 

c  ii.uixinfiuinui  loop  Until  end  of  sequence  string 

c 

2i0  IFar'ET.EO.DGOTOESO 

c 

G  LOr,D  rr.OCESS  string  array  elements  uith  blanks. 

c 

DO2201(ID0r.i,NCPS 
220  JCST(l!;IHi)MH 
C 

C  INITIALIZE  VARIABLES  FOR  NEW  PROCESS  STRING. 

C 

NCST^O 

I.'LP-O 

IPPO;;0 


>  I 


nmittuinn*  loo?  until  end  of  process  string  inmnnintut 


f 

I 


c 
c 
c 
c 

i; 

3i!I  IF(IPRO.EQ.i)GOTO230 
C 

C  GET  A  CHARACTER  FRCft  THE  RECORD  IHAGE. 

C 

IF<NCI«.NE.NCPI)GOT0330 

IF(NIH3.LT.NIPS)GOT0320 

C 

C  HAXIMUh  IHAGE  NUHDER  EXCEEDED.  TERMINATE  SEQUENCE. 

JCIM(NCPI)=JCSL 

NCIM=NCPI-i 

GQTO330 

C 

C  END  OF  IMAGE  ENCOUNTERED.  READ  A  (O  RECORD  IMAGE. 

3E0  i.:ci:i=o 

NIHS=NIiiS+i 
NIMT=NIriT  +  i 

READ(5,iO)(JClH(IMDO),INDO=i/tlCPI) 

C 

C  DIAGNOSTIC:  PRINT  RECORD  IMAGE. 

IF(ITST.EQ.0)GDTO330 

WRIT£(S,20) 

WRITE(6,i20)NSEQ,NIMT 

WRITEiS,30) 

URITE(6,80)(JCIi1(IND0),IND0=i,NCPI) 

C 

C  INITIALIZE  VARIABLES  FOR  CHARACTER  COMPARISON  TESTS. 

C 

330  IPrO=l 
I3TR=:0 
NClM=(iCIrt+i 
JCHA=JCLi(NCIti) 

C 

C  TEST  CHARACTER  AGAINST  DELIMITERS  WHICH  TERMINATE  PROCESS  STRING. 

i; 

C  TEST  FOP  SLASH  DELIMITER,  (/). 

IFdCHA.NE.JCSDGGTnTAO 

IRET^l 

0013310 

C 

C  TEST  FOR  ASTEPISX  ICLIMITER,  (»), 

3-Uj  IF(.]CHA  r;E  JGAS'OOTOSSO 

if'Ifl:  lf.dogtozas 


G0T031B 
3-^5  IFLD^i 
GOTOZiO 
C 

C  TEST  FOR  CO.'iilA  DELIMITER,  (,). 

350  IF ( . NOT , ( JCHA . EQ . JCCO . AND . IFLD .EQ . 0 ) )C0T036fl 
IF(lCQM,NE.i)G0T03S5 
1ALP=1 
ISTR=1 
JCHA=1H 
GOT0370 
355  ICCM=1 
GQTOZiO 
C 

C  TEST  FOR  SPACE  DELIMITER,  (  ). 

3i0  IFIJCHA.EQ. JCEP.AND.IFLD.EQ.O)GOT03iO 
IPP,O=0 
lALP^IFLD 
ISTP.=1 
ICCii--0 
C 

C  STORE  CHARACTER  IN  PROCESS  STRING. 

370  IF(ISTS.NE.1)GOT03SO 
NCST=NCST+1 
JC3T(nCST)=JCHA 
C 

C  TEST  NUMBER  OF  CHARACTERS  STORED  IN  PROCESS  STPI.NG, 

330  IF(NCST.LT.NC?S)COIO3l0 
IPRO=i 
GOT0310 
C 

c 

c 

C  TRANSLATE  TliE  PROCESS  STRING  ti'ifMittKtiiUiZ'iU 

C 

C  TEST  FO.R  EMPTY  PROCESS  STRING,  PYPASS  TRANSLATION. 

230  IF(NC3T.EG.0)GOT0210 
C 

C  DIAGNOSTIC:  PRINT  PROCESS  STRING. 

IF(ITST,EO,0)GOTO2'10 

ICIM-NCIM-NCST 

;;SITE'£,,9r))ICIM,(JCSTCII)Dfl),IflD0-l,NCPS) 

C 

C  TEST  FU°  number  PRCCESSING  OR  CHARACTER  STRING  PPOCFSSING 
2-10  IF((IA;.['  EQ.D.GP.'JCSKD.LE.JCAF  and  Jci,T(i)  GE.JCOn; 

1GOIO500 


c 

c  HUliBER  PROCESSING  t%%ntUW*X%%U%%nii 

i; 

C 

C  INITIALIZE  VARIABLES. 

400  IERR=D 
NFST=i 
NPRO=i 

ICIH^NCIrt-NCST 

ISTO^O 

ESTO=0 

DSTO=0, 

DFCT=i 

ESGN-1 

NSGN=i 

C 

C  PROCESS  INTEGER  PORTION, 

C 

C  TEST  FOR  hlllUS  SIGN. 

I F ( JCST ( (vP R 0 ) .  NE .  JCri I ) GOT04 1  fl 
NPRD=NFRO+i 
NSGN=-1 
NFST^NPRO 
GOTO-)20 
C 

C  TEST  FOR  PLUS  SIGN. 

4i0  IF(JCST(NPRO).N£.JCFL)GOT042B 
NPP0=N?R0+1 
NFST=l(PRO 
C 

C  rETF-PrtlNE  LENGTH  OF  INTEGER  PORTION, 

4?.0  IF(  .NOT.  (.TCST(NPRO)  .LE.  JCNF.AND.  JCST(HPRO)  .GE.  JCNI))C0T0423 
NPPQ=NPFO+l 
GOTO-IEo 
C 

C  STORE  INTEGER  PORTION, 

423  NCOT=NPRO-NFST 

IF(NGCT.EO.O)GOT0430 
NSTF=l  +  (NCCT-l)/t!CIU 
NCLy^iiCCT-NCIU*(NNTF-i) 

DO424IND0=l,NyTF 

NCTP=NCI'J-'.NCIi|-NCLU)*(It)DO/NU'Tr) 

NLSI^riFSHNCTF-l 

EI."-ODE(NCTF  ,150  ,  JCTr )  ( JCGT< INDl ) ,  INDl=NrST,NLS] ) 

DEL'M  ( CCTF ,  130 ,  JCTF )  ( JNIJ.-K  INIM ) ,  ItlDl-1  ,MCTr ) 

NF  tT^^NLo  r  ^1 
l'0424!>.[.1^1,NCTF 

FXPN--1 ‘'SCT-INB1-NCIUI(I.';D0-!>) 


C'i  c-i 


ISTO=ISTO+JNUH(lNDi)!^EXPN 
42^.  CONTINUE 
C 

C  PROCESS  DECIMAL  PORTION, 

C 

C  TEST  FOR  DECIMAL  POINT. 

■130  IF(JCST(NPRO)  .NE.  JCDP)G0T015t) 

NPRO=N?RO+l 

nfst=p?f:q 

C 

C  DETERMINE  LENGTH  OF  DECIMAL  PORTION. 

^40  IF(.NOT.(JCST(NPRO).LE.JCNF.AND.JCST(N?RO).GE..]CNI))GDT01-12 
NPRO^NPROfl 
GOTO-14!) 

0 

C  STORE  DECIMAL  PORTION. 

442  NCCT=NPRO-NFST 

IF(NCCT.EO.0)GQTO4S0 

NUTF=1+(NCCT-1)/NCIU 

NCLH=NCCT-NCr.lii:(NUTF-l) 

DQ444IND0=1,NUTF 

NCTF=NCIi-!-(NCIU-NCLM)*(TNDO/Nl!TF) 

NLST=NFST-HjCTF-i 

ENCODE! NCTF , i SO , JCTF  > ! JCST ( INDl ) , INDl =NFST , NLST ) 
DETODE(NCTF,i40,JCTF)(RNUM(INDl),INDl=l,NCrF) 

NFST=NLST+1 

D0444lNDi=i,NCTF 

DFCT=DFCT.l:.i 

DSTO^DSTO+DFCTKRNUMdNDi) 

444  CONTINUE 

TEST  FOR  SYNTAX  ERROR  IN  MANTISSA. 

450  IF(NFRO.GT,NCST)GOTO480 

IF(JCSTaiPRO)  .EQ,JCAE)C0T046(i 
lEHR^l 
GOI0430 
C 

C  PROCESS  EXPONENT. 

C 

4L0  NRPG^NpROn 
NFST^NPFO 

C  TEST  FOR  MINUS  SION, 

IF ( JCSTINPROI . NE . JCMI >00104 AS 

ESGN=-1 

.''P.RC'-NPPO  +  l 

-^ST-"??0 

ITT  547.') 


')/ 


C  TEST  FOR  PLUS  SIGN. 

AhS  IF ( JCST ( NPRO ) . NE . JCFL ) G0T0A7 0 
NPRO=NPRO+i 
NFST^NPRO 
C 

C  DETERMINE  LENGTH  OF  EXPONENT. 

470  IF (.  NOT .( JCST ( NPRO ). LE . JCNF . AND . JCST ( NPRO ) . GE . JCNI ) ) G0T047 
NPRO=NPRO+i 
GOTO470 
C 

C  STORE  EXPONENT. 

472  NCCT=NPRO-riFGT 

IF(NCCT.£Q.O)GOT047S 

NUTF=l+(NCCT-i)/NCiy 

NCLU=NCCT-NCIU*(NlJTF-i) 

D0474INDO=i,NyTF 

NCTF^NCIU- ( NCIU-NCLW ) *( INDfl/NHTF) 

NLST=NFST+flCTF-i 

ENCODE  ( NCTF ,  iSO ,  JCTF )  ( JCST  ( INDi ) ,  IND1--NFST  ,HLST ) 
DECODE(NCTr,130,JCTF)(JflUM(INDl),lNDi=i,NCTF) 

MFST=NL3T+1 

D0474INDi=i,NCTF 

EXPN=lC*«(NCCT-INDl-rlCIL')i;<INM-l)) 

EST0=EST0+JNUM(INDi)4EXPN 

474  CONTINUE 
C 

C  TEST  FOR  SYNTAX  ERROR  IN  EXPONENT. 

475  IF(NPRO.GT.NCST)GOT04SO 
I ERR =2 

C 

r  COMPUTE  NUMBER  AND  STORE  IN  VALU  ARRAY, 
i: 

480  t)UAL=NVAL+i 

IFdERR.NE. 0)0010405 
C 

C  STORE  VALID  NUMBER  . 

m.U(NVAL)=li3GNMFLOAT(ISTO)+DSTO)*iO.*)lt(ESGN)(;ESTO) 

C 

C  RETURN  TO  BEGINNING  OF  PROCESS  STRING  LOOP. 

0010210 

C 

C  PROCESS  EPPCiR 

C 

C  STG.RE  BLANK. 

485  VALlHNVADdH 


UR1TE(6,80) 

l'!RITE(6,80) 

HRITE(6,80) 

URITE(6,70)l'!inT 

WRlTE(6,80)(JCW(IftD0),ItlD0=i,(iC?I) 

URITE(6,90)ICIt1,'JCST(IND0),lNDD=i,rtCFS) 

WRITE(6,iOO) 

C 

C  RETURM  TO  BEGINNIMG  OF  PROCESS  STRING  LOOP. 

GOTO210 

C 

C 

C 

c  ckapacter  string  processing  nntnnuu%-)i%ut 

ij 

c 

C  PLACE  CHARACTER  STRING  IN  OALU  USING  ENCODE. 

500  NCTF=NCRl«(i+(NCST-i)/N.CRy) 

ENCODE (NCTF , iO ,yALU(NVAL+i ) ) ( JCST(INDO) ,INOO^i ,NCST) 
i; 

C  ADJUST  NUAL. 

WAL=NVAL+i  +  (NCST-i)/NCPU 
C 

C  RETURN  TO  BEGINNING  OF  PRCGESS  STRING  LOOP. 

GUT 02 10 
C 
C 
C 

C  END  OF  SEQUENCE  STRING,  RETURN  TO  CALLING  PROGRAH  UNIT. 

i: 

260  IF(IIST.EQ.0)GOTO270 
URITE(6,il0) 

TJRITE(6,30) 

C 

C 

c 

27fi  RFTU/N 
END 


DATE^ 

ILMED 


